list "$temp" lformat=%F >ENV:tooldir$n ;Der Drawer der Datei
striptease env:tooldir$n ENV:TEMP 1 END >nil:
set tooldir$n `getenv temp`
;Entfernt "/"
unsetenv temp
endif
get tooldir$n >NIL:
if warn ;Tool nicht im Pfad gefunden
set toolskip$n 0
skip back Which-for
endif
cd vorher:
if "$dirdir/" EQ "`get tooldir$n`"
set toolskip$n 0
else
set toolskip$n 1 ;Datei existiert, aber nicht in c:
set whichcount `eval $whichcount + 1`
set TempHurra `get tooldir$n`
set tempusus$n $temphurra`get tool$n` ;???
;Hier Zähler einbauen, bei >5 ein *"*nText *" einbauen!
appendtext "`get tempusus$n`, " T:Filess
endif
;Start Gauge Update
eval `getenv .val` + $updater >env:tempevil
setenv .val $tempevil
Gui vorher:sub.gc
;End Gauge Update
skip back Which-for ;NEXT
lab Which-Next
if $whichcount NOT eq 0
Echo >ram:Tempa "Text *"Warnung:*"*nText *"Um die reibungslose Funktion der Amiga Future (C) CD zu gewährleisten *"*nText *"werden gewisse Dateien auf ihrer Festplatte benötigt.*"*nText *"$whichcount dieser Dateien wurden in anderen Verzeichnissen ihrer *"*nText *"Festplatte lokalisiert. Für einen reibungslosen Ablauf wird *"*n"
Echo >ram:Tempb "Text *"empfohlen, diese Dateien nun nach $CDIR: zu kopieren. *"*nText *"Sie können nun auch ohne Kopieren fortfahren. *"*nText *"Sollten im Verlauf des Benutzens Fehler auftreten, sollten sie *"*nText *"aber dennoch folgende Tools nach $CDIR: kopieren: *"*nText *"`type t:filess` *"*n"
join ram:tempa ram:tempb TO env:Afuturetxt
delete ram:tempa >NIL:
delete ram:tempb >nil:
run >nil: play16 >nil: sounds/`random 2`
set copy `selector req.sel Kopieren Weiter`
if $copy eq 1
;Kopierschleife
set n 0
lab copystart
if $n eq $Wcount ;FOR n=0 TO $WCount
skip copyNext
endif
set n `eval $n + 1`
if `get toolskip$n` eq 1 VAL
set tempvar `get tooldir$n`
set tempvar2 "$tempvar`get tool$n`"
copy "$tempvar2" TO `getenv $VAR$i`: quiet >NIL:
endif
skip back copystart ;NEXT
lab copyNext
set n 0
endif
endif
;Ende Teil 1
;Begin Teil2
set n 0
set count 0
set choice 0
; Begin For-Next Hack ® by The Saint
set n 0
lab Check
if $n eq $Wcount ;FOR n=0 TO $WCount
skip CheckNext
endif
set n `eval $n + 1`
if `get toolskip$n` NOT eq 1 VAL ;ToolNRx wird nur gecheckt, wenn nicht schon mit Which gefunden!
if not exists "$CDIR:`get tool$n`"
set count `eval $count + 1` ;Anzahl der Dateien
set CopyMich$n 1
appendtext "`get tool$N`" T:Reqtool
else
set CopyMich$n 0
endif
endif
;Start Gauge Update
eval `getenv .val` + $updater >env:tempevil
setenv .val $tempevil
Gui vorher:sub.gc
;End Gauge Update
skip back Check ;NEXT
lab CheckNext
set n 0
if $count NOT eq 0 VAL
echo >Env:AFuturetxt "Text *"Warnung:*"*nText *"Auf ihrem Rechner fehlen $count Programm(e) im C:*"*nText *"Verzeichnis. Diese Dateien werden für einen*"*nText *"reibungslosen Ablauf der Amiga Future (C) CD dringend*"*nText *"empfohlen. Folgende Komponenten sind nicht vorhanden:*"*nText *"`type t:reqtool`*"*nText *"Wir empfehlen dringend diese nun zu installieren!*"*n"
run >nil: play16 >nil: sounds/`random 2`
set choice `selector req.sel Installieren überspringen`
endif
if $choice eq 1
skip proceed
else
skip cancel
endif
lab proceed
; Begin For-Next Hack ® by The Saint
set n 0
lab for
if $n eq $Wcount ;FOR n=0 TO $WCount
skip Next
endif
set n `eval $n + 1`
if `get toolskip$n` NOT eq 1 VAL ;Nur kopieren, wenn nicht schon per Which gefragt
if `get copymich$n` EQ 1 VAL ;Nur kopieren, wenn nicht da
copy $dir`get tool$n` TO C: quiet >NIL: ;Kopiert automatisch alle Tools nach C:
endif
endif
skip back for ;NEXT
lab Next
set n 0
lab cancel
;Ende Teil 2
;Anfang Teil 3
;Versionchecker - Main Part, Idea by Higgins
set VCount 0
set n 0
lab Versionfor
if $n eq $Wcount ;FOR n=0 TO $WCount
skip VersionNext
endif
set n `eval $n + 1`
if exists $CDIR:`get tool$n`
;===
version "$dir`get tool$n`" >env:AFVersion$n
if fail
echo >env:Afversionstring$n "Unbekannt- zu alt?" NOLINE
